######################################################
###Table Appendix C2: Alternative Moderator ###########
######################################################
ta7_m1 <- lm(supp_dem2 ~ unauthorised*unauth_acc + age + gender +education, data = dat)
ta7_m2 <- lm(supp_dem2 ~ violent*unauth_acc     + age + gender + education, data = dat)
ta7_m3 <- lm(supp_dem2 ~ arrest*unauth_acc      + age + gender + education, data = dat)
ta7_m4 <- lm(part_dummy2 ~ unauthorised*unauth_acc + age + gender +education, data = dat)
ta7_m5 <- lm(part_dummy2 ~ violent*unauth_acc     + age + gender + education, data = dat)
ta7_m6 <- lm(part_dummy2 ~ arrest*unauth_acc      + age + gender + education, data = dat)

stargazer (ta7_m1, ta7_m2, ta7_m3, ta7_m4, ta7_m5, ta7_m6)
